'Check CmdBar Control ID
    Dim cbr As CommandBarControl
    For Each cbr In Application.CommandBars(1).Controls(6).Controls
        i = i + 1
        Cells(i, 1) = cbr.Caption
        Cells(i, 2) = cbr.ID
    Next
'Disable CmdBar
    Application.CommandBars.FindControl(ID:=30138).Enabled = False
